1 REM DISTRIBUTED BY ZYPHER INNOVATIONS
2 POKE53280,0:POKE53281,0:PRINT"[147][158]       E R K L A E R U N G (J/N) ?"
3 GETXY$:IFXY$=""THEN3
4 IFXY$="N"THEN100
5 PRINT"[147]DIESES SPIEL IST EIN 'MEMORY'-SPIEL.    DU HAST AUF EINER TAFEL DIE"
6 PRINT"VERDECKTEN BUCHSTABEN DES APHABETS."
7 PRINT"MIT DEM JOYSTICK IN PORT 2 WAEHLST DU   DAS FELD, DAS DU SEHEN WILLST."
8 PRINT"WENN DU DEN GESUCHTEN BUCHSTABEN GEFUN- DEN HAST, DRUECK' DEN FEUERKNOPF."
9 PRINT"MERK' DIR DIE BUCHSTABEN, DIE DU SIEHST - DU HAST NICHT UNBEGRENZT ZEIT!"
10 PRINT"ZUM SPIELBEGINN DRUECK'  S P A C E [146] !"
11 SYS58592
100 SD=54272:FORI=SDTOSD+24:POKEI,0:NEXT:POKESD+5,26:POKESD+6,191:POKE54296,15
110 SM=1280:CL=54272:Q1=1905:Q2=1227
120 HS=0:JC=56320
130 CR$=CHR$(19):FORI=1TO23:CR$=CR$+CHR$(17):NEXT:POKE53281,1
140 FORI=1TO7
150 PRINTCHR$(31)CHR$(147)LEFT$(CR$,9)SPC(12)"ALPHA ANXIETY"
160 FORJ=1TO50:NEXT
170 PRINTCHR$(31)CHR$(147)LEFT$(CR$,9)SPC(12)"ALPHA ANXIETY"
180 FORJ=1TO100:NEXTI
190 DIMP%(25),RL%(5,5)
200 GOSUB1150
210 RF=0:AT=0
220 DL=150
230 SC=0:MA=3
240 L1=1:L2=1:LC=1:FL=1:PO=SM:FG=0
250 IFRF=1THENLC=25
260 PRINTCHR$(147)
270 PRINT""TAB(15)"[144][176][192][178][192][178][192][178][192][178][192][174]"
280 FORI=1TO4:PRINTTAB(15)"[221] [146][221] [146][221] [146][221] [146][221] [146][221]":PRINTTAB(15)"[171][192][219][192][219][192][219][192][219][192][179]"
290 NEXT:PRINTTAB(15)"[221] [146][221] [146][221] [146][221] [146][221] [146][221]"
300 PRINTTAB(15)"[173][192][177][192][177][192][177][192][177][192][189]"
310 PRINT"GES.":PRINT"BUCHST:":PRINT"[176][192][174]":PRINT"[221] [221]":PRINT"[173][192][189]"
320 PRINT"ZEIT:":PRINT"SCORE:":PRINT""SC:
330 PRINT"HIGH":PRINT"SCORE:"
340 PRINT"";HS
350 IFSC<2499THENPOKEQ2+CL,6:POKEQ2,LC
360 FORI=Q1+CLTOQ1+CL+26:POKEI,0:NEXT
370 TI$="000000":CS=160
380 GOSUB530
390 IFFG=1THEN240
400 IFMA=0THEN450
410 POKESD+4,17:POKESD+1,0
420 TL=DL-INT(TI/60)
430 PRINTLEFT$(CR$,11)SPC(2)TL"[157]  "
440 IFTL>0THEN380
450 IFSC>HSTHENHS=SC
460 PRINTNT"[147]               GAME OVER"
470 PRINT"         DRUECK' > FEUER < FUER"
480 PRINT"             NOCH EIN SPIEL"
490 POKESD+1,85:FORI=1TO400:NEXT:POKESD+1,0:GOSUB1150
500 A=NOTPEEK(JC)AND16:IFA=0THEN500
510 PRINTCHR$(147):FORT=1TO500:NEXT
520 GOTO210
530 P=NOTPEEK(JC)AND31
540 JE=(P=8)
550 JS=(P=2)
560 JW=(P=4)
570 JN=(P=1)
580 JF=(P=16)
590 TH=PO:T1=L1:T2=L2
600 IFJFTHENGOSUB740:GOTO670
610 IFJETHENPO=PO+2:L1=L1+1:FL=1
620 IFJSTHENPO=PO+80:L2=L2+1:FL=1
630 IFJWTHENPO=PO-2:L1=L1-1:FL=1
640 IFJNTHENPO=PO-80:L2=L2-1:FL=1
660 POKESD+1,50
670 IFFG=1THEN730
680 IFPO<SMORPO>SM+376THENPO=TH:L1=T1:L2=T2
690 IFPEEK(PO+1)=32ORPEEK(PO-1)=32THENPO=TH:L1=T1:L2=T2
700 POKETH+CL,0:POKETH,CS:CS=PEEK(PO)
710 POKEPO+CL,2:POKEPO,RL%(L1,L2)
720 FL=0
730 RETURN
740 IFRL%(L1,L2)=LCTHENSC=SC+10:GOTO780
750 IFRF=1THEN860
760 IFRL%(L1,L2)<LCTHEN900
770 GOTO860
780 POKESD+1,100:FORT=1TO25:NEXT:POKESD+1,0
790 IFRF=1THENPOKEQ1+26-LC,LC:GOTO810
800 POKEQ1+LC,LC
810 IFRF=1THENLC=LC-1:GOTO830
820 LC=LC+1
830 IFSC>2500THEN850
840 IFLC<>0THENPOKEQ2,LC
850 CS=RL%(L1,L2):GOTO890
860 POKESD+1,20:FORT=1TO30:NEXT:POKESD+1,0
870 DL=DL-10:IFDL<=0THENGOTO460
880 RETURN
890 PRINTLEFT$(CR$,15)SPC(2)SC"[157]  "
900 IFRF=0THEN930
910 IFLC<>0THEN1140
920 GOTO940
930 IFLC<>26THEN1140
940 IFSC>5000THEN1000
950 AT=AT+DL-TL
960 IFSC=5000THENDL=INT(AT/20):GOTO1050
970 IFTL<150THENDL=40+TL*2:GOTO1050
980 IFTL>300THENDL=TL*.5:GOTO1050
990 DL=TL
1000 IFSC=6000THENDL=DL-5
1010 IFSC=7000THENDL=DL-5
1020 IFSC=8000THENDL=DL-5
1030 IFSC=9000THENDL=DL-5
1040 IFSC=10000THENDL=DL-5
1050 H=SD+1:L=SD:POKEH,8:POKEL,97:GOSUB1080
1060 POKEH,12:POKEL,143:GOSUB1080:POKEH,14:POKEL,24:GOSUB1080
1070 POKEH,12:POKEL,143:POKESD+4,17:FORI=1TO800:NEXTI:POKEH,0:POKEL,0:GOTO1110
1080 POKESD+4,17:FORI=1TO200:NEXT:POKESD+4,16:FORI=1TO100:NEXT
1090 POKESD+4,17:FORI=1TO200:NEXT:POKESD+4,16:FORI=1TO100:NEXT
1100 RETURN
1110 IFSC>1250THENRF=1
1120 GOSUB1150
1130 FG=1
1140 RETURN
1150 FORI=1TO25:P%(I)=I:NEXT
1160 FORI=1TO5
1170 FORJ=1TO5
1180 R=INT(RND(1)*25+1)
1190 IFP%(R)=0THEN1180
1200 RL%(I,J)=R
1210 P%(R)=0
1220 NEXTJ
1230 NEXTI
1240 RETURN